home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / games / g037.dms / in.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1989-04-11  |  1.1 KB  |  54 lines
  1. Screen Open 0,320,256,32,Lowres
  2. SETUP
  3. MAIN
  4. Procedure MAIN
  5.    COUNT=2
  6.    Bob 1,120,80,COUNT
  7.    Repeat 
  8.       Synchro Off 
  9.       Bob 2,350,60,1
  10.       Channel 2 To Bob 2
  11.       Amal 2,"Move -470,0,470"
  12.       Amal On 
  13.       While Chanmv(2)
  14.          Synchro 
  15.          Wait Vbl 
  16.          If Mouse Key=1
  17.             Amal Off 
  18.             Wait Vbl 
  19.             Led On 
  20.             Synchro On 
  21.             Wait Vbl 
  22.             Run "df0:balloon.amos"
  23.          Else 
  24.             If Mouse Key=2
  25.                Amal Off 
  26.                Wait Vbl 
  27.                Led On 
  28.                Synchro On 
  29.                Wait Vbl 
  30.                Run "df0:inst.amos"
  31.             Else 
  32.                If X Bob(2)=105
  33.                   Inc COUNT
  34.                   If COUNT>5
  35.                      COUNT=2
  36.                   End If 
  37.                   Bob 1,120,80,COUNT
  38.                End If 
  39.             End If 
  40.          End If 
  41.       Wend 
  42.    Until Mouse Key
  43. End Proc
  44. Procedure SETUP
  45.    Flash Off 
  46.    Hide 
  47.    Curs Off 
  48.    Unpack 2 To 0
  49.    Double Buffer 
  50.    Screen Show 0
  51.    Get Palette 0
  52.    Led Off 
  53.    Music 1
  54. End Proc